df_dec <- final %>% select(age, gender, pid7, educ4) %>% mutate(age = age - 1)
sample_desc <- psych::describe(df_dec) %>% select(min, mean, max, sd, n)

print(xtable::xtable(sample_desc, type = "latex", caption="Sample Descriptives", label = "tab:sample"), 
      caption.placement = 'top', digits=3, size="\\fontsize{8pt}{10pt}\\selectfont")
